home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / scilab.star < prev    next >
Text File  |  1999-09-16  |  2KB  |  59 lines
  1. mode(-1);
  2. predef(0);clear
  3. stacksize(1000000); 
  4. //return
  5. t=[' '
  6. ' '
  7. 'Startup execution:'];
  8. write(%io(2),t)
  9. clear t;
  10. //
  11. %inf=10000.3^10000.3;%nan=%inf-%inf;%s=poly(0,'s');%z=poly(0,'z');
  12. //
  13. errcatch(48,'continue');
  14. write(%io(2),'  loading initial environment')
  15. load('SCI/macros/algebre/lib')
  16. load('SCI/macros/arma/lib')
  17. load('SCI/macros/auto/lib')
  18. load('SCI/macros/calpol/lib')
  19. load('SCI/macros/elem/lib')
  20. load('SCI/macros/metanet/lib')
  21. load('SCI/macros/optim/lib')
  22. load('SCI/macros/percent/lib')
  23. load('SCI/macros/robust/lib')
  24. load('SCI/macros/sci2for/lib')
  25. load('SCI/macros/signal/lib')
  26. load('SCI/macros/tdcs/lib')
  27. load('SCI/macros/util/lib')
  28. load('SCI/macros/xdess/lib')
  29. load('SCI/macros/scicos/lib')
  30. //
  31. SCI=getenv('SCI')
  32. TMPDIR='/tmp/.scilab_'+string(getpid())
  33. %T=%t;%F=%f;
  34. host('umask 000;if test ! -d '+TMPDIR+'; then mkdir '+TMPDIR+'; fi ')
  35. predef()
  36. //
  37. // calling user initialization
  38. //=============================
  39. //
  40. errcatch(240,'continue','nomessage');
  41. startup=file('open','home/.scilab','old','formatted');
  42. if iserror(240)=0 then
  43.    errcatch(240,'kill'); errclear(240);
  44.    exec(startup,-1);file('close',startup);clear startup
  45. else
  46.    errcatch(240,'kill'); errclear(240);
  47. end;
  48. if unix_g('cd;pwd')<>unix_g('pwd') then
  49.   errcatch(240,'continue','nomessage');
  50.   startup=file('open','.scilab','old','formatted');
  51.   if iserror(240)=0 then
  52.      errcatch(240,'kill'); errclear(240);
  53.      exec(startup,-1);file('close',startup);clear startup
  54.   else
  55.      errcatch(240,'kill'); errclear(240);
  56.   end;
  57. end
  58.  
  59.